open(BUFF,"GE.txt");
$line=<BUFF>;
chomp($line);
@array = split(/\t/,$line);
#print "@array\n";
shift(@array);
for($i=0;$i<@array;$i++)
{
	$hash{$array[$i]} =1;
}
open(BUFF,"common_samples_affy_ill");
$nu = 0;
while($line=<BUFF>)
{
	chomp($line);
	@array = ();
	@array = split("-",$line);
	#print $array[3]."\n";
	if($array[3] =~ m/10/)
	{
		$line1 = "$array[0]-$array[1]-$array[2]";
		if(exists($hash{$line1}))
		{
			#print $line1."\n";
			$hash1{$line1} =$nu++;
		}
	}
}
open(BUFF,"./ILL_SEP/before_imp/fwdStrandResults_ILLOV_removeddup.tfam");
open(WRBUFF,">./ILL_SEP/before_imp/ILL_common_samples_affy_ill.txt");
@array1=();
while($line=<BUFF>)
{
        chomp($line);
	@array=();
	@array = split("-",$line);
	$line1 = "$array[0]-$array[1]-$array[2]";
	if(exists($hash1{$line1}) && $array[3] =~ m/10/)
	{
		$array1[$hash1{$line1}] = $line;
	}
}
for($i=0;$i<@array1;$i++)
{
	print WRBUFF $array1[$i]."\n";
}
open(BUFF,"./AFFY_SEP/before_imp/fwdStrandResults_OV_removeddup.tfam");
open(WRBUFF,">./AFFY_SEP/before_imp/AFFY_common_samples_affy_ill.txt");
@array1=();
while($line=<BUFF>)
{
        chomp($line);
        @array=();
        @array = split("-",$line);
        $line1 = "$array[0]-$array[1]-$array[2]";
        if(exists($hash1{$line1}) && $array[3] =~ m/10/)
        {
                $array1[$hash1{$line1}] = $line;
        }
}
for($i=0;$i<@array1;$i++)
{
        print WRBUFF $array1[$i]."\n";
}

